home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
sortfield
< prev
next >
Wrap
Text File
|
1991-01-08
|
267b
|
7 lines
local(_@_K_E_Y_S);
foreach (_@_D_A_T_A) {
push(_@_K_E_Y_S, _K_E_Y_E_X_P_R);
}
sub _S_O_R_T_F_U_N_C { _B_Y_K_E_Y_E_X_P_R; }
_@_S_O_R_T_D_A_T_A = _@_D_A_T_A[sort _S_O_R_T_F_U_N_C $[.._$_#_D_A_T_A];